home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / tegl6b.zip / INTROPAK.EXE / lha / SIMMOUSE.PAS < prev    next >
Pascal/Delphi Source File  |  1991-04-05  |  350b  |  25 lines
  1. {-- This program draws a frame then waits for a mouse button to be pressed }
  2. {-- then disposes of it. }
  3.  
  4.  
  5. Uses
  6.     TEGLIntr,
  7.     TEGLUnit,
  8.     TEGLMain;
  9.  
  10.  
  11. BEGIN
  12.  
  13.    EasyTEGL;
  14.    EasyOut;
  15.  
  16.    PushImage(1,1,100,100);
  17.    ShadowBox(1,1,100,100);
  18.    ShowMouse;
  19.  
  20.    WHILE Mouse_Buttons = 0 DO;
  21.    PopImage;
  22.  
  23.    TEGLSupervisor;
  24. END.
  25.